home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS18.ADF / Progs / StarProbe / SPFLT.H < prev    next >
Text File  |  1989-01-27  |  2KB  |  45 lines
  1. /****************************************************************************
  2.  ***           G  L  O  B  A  L     F  L  O  A  T                         ***
  3.  ****************************************************************************/
  4.  
  5.  double m,       /* current mass */
  6.         mass,    /* mass of star (gm)*/
  7.         massratio,/*mass of star in solar units*/
  8.         massinc, /* increment for mass loop */
  9.         radiusgrad [MAX_STEPS],
  10.         tempgrad   [MAX_STEPS],
  11.         lumgrad    [MAX_STEPS],
  12.         pressgrad  [MAX_STEPS],
  13.         densgrad   [MAX_STEPS],
  14.         massgrad   [MAX_STEPS],
  15.         tmassgrad  [MAX_STEPS],
  16.         opctygrad  [MAX_STEPS],
  17.         energygrad [MAX_STEPS],
  18.         results  [4] [6], /* trial integration results at midpoint (p,t,l,r) */
  19.         radius,  /* radius at current mass */
  20.         temp,    /* temp at current mass */
  21.         lum,     /* luminosity at current mass */
  22.         density, /* density at current mass */
  23.         pressure,/* pressure at current mass */
  24.         opacity, /* opacity at current mass */
  25.         u,       /* mean molecular weight */
  26.         radratio,
  27.         lumratio,
  28.         coredensity,
  29.         coretemp,
  30.         corepress,
  31.         efftemp,
  32.         effpress,
  33.         adj_p,
  34.         adj_t,
  35.         adj_l,
  36.         adj_r,
  37.         old_diff,
  38.         cur_diff,
  39.         fitptmass,/*mass fraction (from center) of fitting point*/
  40.         poly,    /* polytrope exponent */
  41.         B,       /* gas pressure ratio */
  42.         X,Y,Z;   /* hydrogen, helium, metal fractions */
  43.  
  44.  
  45.